home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue24 / system / Zipper.dfm / Zipper.txt
Encoding:
Text File  |  1997-07-02  |  1.6 KB  |  84 lines
  1. object Form1: TForm1
  2.   Left = 361
  3.   Top = 204
  4.   Width = 448
  5.   Height = 373
  6.   Caption = 'ZIP Test Program'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   OnResize = FormResize
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object NumFiles: TLabel
  20.     Left = 8
  21.     Top = 248
  22.     Width = 43
  23.     Height = 13
  24.     Caption = 'NumFiles'
  25.   end
  26.   object Panel1: TPanel
  27.     Left = 0
  28.     Top = 0
  29.     Width = 440
  30.     Height = 233
  31.     Align = alTop
  32.     Caption = 'Panel1'
  33.     TabOrder = 0
  34.     object FileList: TListBox
  35.       Left = 9
  36.       Top = 48
  37.       Width = 416
  38.       Height = 177
  39.       ItemHeight = 13
  40.       Style = lbOwnerDrawFixed
  41.       TabOrder = 0
  42.       OnDrawItem = FileListDrawItem
  43.     end
  44.   end
  45.   object Header1: THeader
  46.     Left = 8
  47.     Top = 29
  48.     Width = 393
  49.     Height = 20
  50.     Sections.Sections = (
  51.       #0'169'#0'Name'
  52.       #0'48'#0'Modified'
  53.       #0'44'#0'Method'
  54.       #0'30'#0'Path')
  55.     TabOrder = 1
  56.     OnSized = Header1Sized
  57.   end
  58.   object RevSort: TCheckBox
  59.     Left = 12
  60.     Top = 280
  61.     Width = 97
  62.     Height = 17
  63.     Caption = '&Reverse Sort'
  64.     TabOrder = 2
  65.     OnClick = RevSortClick
  66.   end
  67.   object MainMenu1: TMainMenu
  68.     Left = 391
  69.     Top = 250
  70.     object File1: TMenuItem
  71.       Caption = '&File'
  72.       object Open1: TMenuItem
  73.         Caption = '&Open...'
  74.         OnClick = Open1Click
  75.       end
  76.     end
  77.   end
  78.   object OpenDialog1: TOpenDialog
  79.     Filter = 'ZIP Files|*.ZIP'
  80.     Left = 359
  81.     Top = 251
  82.   end
  83. end
  84.